home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
extras
/
programm
/
gemfsc20
/
gemfsc20.lzh
/
GEMFBIND
/
VQSCAN.S
< prev
next >
Wrap
Text File
|
1993-03-27
|
1KB
|
53 lines
;*========================================================================
;* VDIFAST Public Domain VDI bindings.
;*========================================================================
;*------------------------------------------------------------------------
;*
;*------------------------------------------------------------------------
globl _vq_scan
_vq_scan:
; .cargs #8,handle.w,g_slice.l,g_page.l,a_slice.l,a_page.l,div_fac.l
handle = 8
g_slice = 10
g_page = 14
a_slice = 18
a_page = 22
div_fac = 26
link a6,#-10
; VContrl #5,#24
move.w handle(a6),-(sp) ; contrl[6] ; handle
move.w #24,-(sp) ; contrl[5] ; subfunction
clr.l -(sp) ; contrl[4,3]
clr.l -(sp) ; contrl[2,1]
move.w #5,-(sp) ; contrl[0] ; opcode
subq.l #4,sp ;* -> ptsout
pea -10(a6) ;* -> intout
subq.l #8,sp ;* -> ptsin, intin
pea 16(sp) ;* -> contrl
move.l sp,d1
jsr vditrap
move.l g_slice(a6),a0
move.w -10(a6),(a0)
move.l g_page(a6),a0
move.w -8(a6),(a0)
move.l a_slice(a6),a0
move.w -6(a6),(a0)
move.l a_page(a6),a0
move.w -4(a6),(a0)
move.l div_fac(a6),a0
move.w -2(a6),(a0)
unlk a6
rts
end